﻿Public Class xtf_ABMensayo01

    Dim ulg_row As DataRow
    Dim obj_ensayo01 As cls_ensayo01_ = Nothing

    Public Sub New()
        InitializeComponent()


        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()
        Cargarcondicionsuperficial_()
        Cargarlimpieza_()
        Cargarmagnetizaciontecnica_()
        Cargarmagnetizacioncorriente_()
        Cargarmagnetizacionequipo_()
        Cargarparticulatipo_()
        Cargarcolor_()
        Cargarmarca_()
        Cargaraplicacion_()
        Cargariluminaciontipo_()
        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()

        AgregarValidaciones()

        'TEMPORAL Actualizo la numeracion
        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001062001") Then
            txt_informe.EditValue = ensayosubtipo.numero
            txt_informe.Properties.Mask.EditMask = ""
            If ensayosubtipo.ensayotipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.sigla
            If ensayosubtipo.ensayotipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.siglaENG

            If ensayosubtipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.sigla
            If ensayosubtipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.siglaENG

            txt_informe.Properties.Mask.EditMask &= "-" & ensayosubtipo.numeroformato

            txt_informe.Properties.Mask.UseMaskAsDisplayFormat = True

        End If
        If System.IO.File.Exists(config_empresa.logochico) Then
            Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
            pic_empresaLogo.Image = logoempresa
        End If
    End Sub

    Public Overrides Sub CargarObjetos()
        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()
        Cargarcondicionsuperficial_()
        Cargarlimpieza_()
        Cargarmagnetizaciontecnica_()
        Cargarmagnetizacioncorriente_()
        Cargarmagnetizacionequipo_()
        Cargarparticulatipo_()
        Cargarcolor_()
        Cargarmarca_()
        Cargaraplicacion_()
        Cargariluminaciontipo_()
        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()
    End Sub

    Private Sub CargarRealizado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_realizado.EditValue
        Dim realizado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        If realizado_.Count = 0 Then realizado_ = Nothing
        cargarCombo(cbo_realizado, realizado_, False, True)
        cbo_realizado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_realizado.EditValue)
    End Sub
    Private Sub Cargaringresado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_ingresado.EditValue
        Dim ingresado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        If ingresado_.Count = 0 Then ingresado_ = Nothing
        cargarCombo(cbo_ingresado, ingresado_, False, False)
        cbo_ingresado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_ingresado.EditValue)
    End Sub
    Private Sub CargarInspector_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_inspector.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoInspector")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_inspector, personal_.Items, False, True)
        cbo_inspector.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_inspector.EditValue)
    End Sub
    Private Sub CargarEvaluador_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_evaluador.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoEvaluador")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_evaluador, personal_.Items, False, True)
        cbo_evaluador.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_evaluador.EditValue)
    End Sub
    Private Sub Cargarcliente_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_cliente.EditValue
        Dim cliente_ As New cls_cliente_
        cliente_.CargarTodos(True)
        cargarCombo(cbo_cliente, cliente_.Items)
        cbo_cliente.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_cliente.EditValue)
    End Sub
    Private Sub Cargarcentrocostoorden_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_centrocostoorden.EditValue
        Dim centrocostoorden_ As New cls_centrocostoorden_
        centrocostoorden_.CargarXtipo(opt_obra.SelectedIndex)
        cargarCombo(cbo_centrocostoorden, centrocostoorden_.Items, True, True)
        cbo_centrocostoorden.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_centrocostoorden.EditValue)
    End Sub

    Private Sub Cargarequipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_equipo.EditValue
        Dim equipo_ As New cls_equipo_
        If cbo_centrocostoorden.EditValue <> 0 Then
            equipo_.CargarXidobra(cbo_centrocostoorden.EditValue)
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        Else
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        End If
        cbo_equipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_equipo.EditValue)
    End Sub

    Private Sub Cargarcomponenteensayar_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_componenteensayar.EditValue
        Dim componenteensayar_ As New cls_componenteensayar_
        componenteensayar_.CargarTodos()
        cargarCombo(cbo_componenteensayar, componenteensayar_.Items, False, True)
        cbo_componenteensayar.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_componenteensayar.EditValue)
    End Sub
    Private Sub Cargarnorma_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_norma.EditValue
        Dim norma_ As New cls_criterionorma_
        norma_.CargarNormas()
        cargarCombo(cbo_norma, norma_.Items, False, True)
        cbo_norma.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_norma.EditValue)
    End Sub

    Private Sub Cargarcriterio_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_criterio.EditValue
        Dim criterio_ As New cls_criterionorma_
        criterio_.CargarCriterios()
        cargarCombo(cbo_criterio, criterio_.Items, False, True)
        cbo_criterio.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_criterio.EditValue)
    End Sub

    Private Sub Cargarcondicionsuperficial_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_condicionsuperficial.EditValue
        Dim condicionsuperficial_ As New cls_condicionsuperficial_
        condicionsuperficial_.CargarTodos()
        cargarCombo(cbo_condicionsuperficial, condicionsuperficial_.Items, False, True)
        cbo_condicionsuperficial.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_condicionsuperficial.EditValue)
    End Sub

    Private Sub Cargarlimpieza_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_limpieza.EditValue
        Dim limpieza_ As New cls_limpiezaremocion_
        limpieza_.CargarLimpiezas()
        cargarCombo(cbo_limpieza, limpieza_.Items, False, True)
        cbo_limpieza.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_limpieza.EditValue)
    End Sub

    Private Sub Cargarmagnetizaciontecnica_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_magnetizaciontecnica.EditValue
        Dim magnetizaciontecnica_ As New cls_magnetizaciontecnica_
        magnetizaciontecnica_.CargarTodos()
        cargarCombo(cbo_magnetizaciontecnica, magnetizaciontecnica_.Items, False, True)
        cbo_magnetizaciontecnica.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_magnetizaciontecnica.EditValue)
    End Sub

    Private Sub Cargarmagnetizacioncorriente_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_magnetizacioncorriente.EditValue
        Dim magnetizacioncorriente_ As New cls_magnetizacioncorriente_
        magnetizacioncorriente_.CargarTodos()
        cargarCombo(cbo_magnetizacioncorriente, magnetizacioncorriente_.Items, False, True)
        cbo_magnetizacioncorriente.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_magnetizacioncorriente.EditValue)
    End Sub

    Private Sub Cargarmagnetizacionequipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_magnetizacionequipo.EditValue
        Dim magnetizacionequipo_ As New cls_magnetizacionequipo_
        magnetizacionequipo_.CargarTodos()
        cargarCombo(cbo_magnetizacionequipo, magnetizacionequipo_.Items, False, True)
        cbo_magnetizacionequipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_magnetizacionequipo.EditValue)
    End Sub

    Private Sub Cargarparticulatipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_particulatipo.EditValue
        Dim particulatipo_ As New cls_particulatipo_
        particulatipo_.CargarTodos()
        cargarCombo(cbo_particulatipo, particulatipo_.Items, False, True)
        cbo_particulatipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_particulatipo.EditValue)
    End Sub

    Private Sub Cargarcolor_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_color.EditValue
        Dim color_ As New cls_color_
        color_.CargarTodos()
        cargarCombo(cbo_color, color_.Items, True, True)
        cbo_color.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_color.EditValue)
    End Sub

    Private Sub Cargarmarca_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_marca.EditValue
        Dim marca_ As New cls_marca_
        marca_.CargarTodos()
        cargarCombo(cbo_marca, marca_.Items, True, True)
        cbo_marca.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_marca.EditValue)
    End Sub

    Private Sub Cargaraplicacion_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_aplicacion.EditValue
        Dim aplicacion_ As New cls_limpiezaremocion_
        aplicacion_.CargarLimpiezas()
        cargarCombo(cbo_aplicacion, aplicacion_.Items, False, True)
        cbo_aplicacion.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_aplicacion.EditValue)
    End Sub

    Private Sub Cargariluminaciontipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_iluminaciontipo.EditValue
        Dim iluminaciontipo_ As New cls_iluminaciontipo_
        iluminaciontipo_.CargarTodos()
        cargarCombo(cbo_iluminaciontipo, iluminaciontipo_.Items, False, True)
        cbo_iluminaciontipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_iluminaciontipo.EditValue)
    End Sub

    Public Shadows Sub Nuevo(ByRef listado As Form)
        Try
            frm_listado = listado
            Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - Nuevo"
            obj_ensayo01 = New cls_ensayo01_
            btn_Registro.Enabled = False
            Me.Show()
            
            dtp_fecha.DateTime = Now
            dtp_fechaEvaluador.DateTime = Now
            dtp_fechaInspector.DateTime = Now
            cbo_ingresado.EditValue = UsuarioLOG.idusuario
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Shadows Sub Modificar(ByRef ensayo01 As cls_ensayo01_, ByRef listado As Form, ByRef row As DataRow)
        If IsNothing(obj_ensayo01) Then
            obj_ensayo01 = New cls_ensayo01_
        End If
        obj_ensayo01 = ensayo01
        frm_listado = listado
        ulg_row = row : bbi_imprimir.Enabled = True


        txt_ID.Text = obj_ensayo01.idensayo01
        txt_informe.Text = obj_ensayo01.numero
        Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - " & txt_informe.Text
        dtp_fecha.DateTime = obj_ensayo01.fecha
        cbo_cliente.EditValue = obj_ensayo01.idcliente

        If Not IsNothing(obj_ensayo01.centrocostoorden) Then
            opt_obra.SelectedIndex = obj_ensayo01.centrocostoorden.tipo
        End If
        cbo_centrocostoorden.EditValue = obj_ensayo01.idcentrocostoorden

        cbo_equipo.EditValue = obj_ensayo01.idequipo
        cbo_componenteensayar.EditValue = obj_ensayo01.idcomponenteensayar
        txt_identificacion.Text = obj_ensayo01.identificacion
        txt_procedimiento.Text = obj_ensayo01.procedimiento
        cbo_norma.EditValue = obj_ensayo01.idnorma
        cbo_criterio.EditValue = obj_ensayo01.idcriterio
        cbo_condicionsuperficial.EditValue = obj_ensayo01.idcondicionsuperficial
        cbo_limpieza.EditValue = obj_ensayo01.idlimpieza
        cbo_magnetizaciontecnica.EditValue = obj_ensayo01.idmagnetizaciontecnica
        cbo_magnetizacioncorriente.EditValue = obj_ensayo01.idmagnetizacioncorriente
        cbo_magnetizacionequipo.EditValue = obj_ensayo01.idmagnetizacionequipo
        cbo_particulatipo.EditValue = obj_ensayo01.idparticulatipo
        cbo_color.EditValue = obj_ensayo01.idcolor
        cbo_marca.EditValue = obj_ensayo01.idmarca
        cbo_aplicacion.EditValue = obj_ensayo01.idaplicacion
        cbo_iluminaciontipo.EditValue = obj_ensayo01.idiluminaciontipo
        pic_croquis.Image = obj_ensayo01.croquis
        txt_croquisnotas.Text = obj_ensayo01.croquisnotas
        txt_notas.Text = obj_ensayo01.notas
        opt_informeestado.SelectedIndex = obj_ensayo01.informeestado
        dtp_fechaEvaluador.DateTime = obj_ensayo01.evaluadorfecha
        dtp_fechaInspector.DateTime = obj_ensayo01.inspectorfecha
        cbo_inspector.EditValue = obj_ensayo01.idinspector
        cbo_evaluador.EditValue = obj_ensayo01.idevaluador
        cbo_realizado.EditValue = obj_ensayo01.idusuariorealizado
        cbo_ingresado.EditValue = obj_ensayo01.idusuarioingresado

        btn_Registro.Enabled = True

        'obj_ensayo01.localidad = Nothing
        Me.Show()

    End Sub

    Public Overrides Function ComprobarDatos() As Boolean

        If dtp_fecha.DateTime > dtp_fechaEvaluador.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Evaluacion no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        If dtp_fecha.DateTime > dtp_fechaInspector.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Inspección no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        Return True
    End Function

    Public Shadows Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then

            'obj_ensayo01.idensayo01 = txt_ID.Text
            obj_ensayo01.numero = txt_informe.EditValue
            obj_ensayo01.fecha = dtp_fecha.DateTime
            obj_ensayo01.idcliente = cbo_cliente.EditValue
            obj_ensayo01.idcentrocostoorden = cbo_centrocostoorden.EditValue
            obj_ensayo01.idequipo = cbo_equipo.EditValue
            obj_ensayo01.idcomponenteensayar = cbo_componenteensayar.EditValue
            obj_ensayo01.identificacion = txt_identificacion.Text
            obj_ensayo01.procedimiento = txt_procedimiento.Text
            obj_ensayo01.idnorma = cbo_norma.EditValue
            obj_ensayo01.idcriterio = cbo_criterio.EditValue
            obj_ensayo01.idcondicionsuperficial = cbo_condicionsuperficial.EditValue
            obj_ensayo01.idlimpieza = cbo_limpieza.EditValue
            obj_ensayo01.idmagnetizaciontecnica = cbo_magnetizaciontecnica.EditValue
            obj_ensayo01.idmagnetizacioncorriente = cbo_magnetizacioncorriente.EditValue
            obj_ensayo01.idmagnetizacionequipo = cbo_magnetizacionequipo.EditValue
            obj_ensayo01.idparticulatipo = cbo_particulatipo.EditValue
            obj_ensayo01.idcolor = cbo_color.EditValue
            obj_ensayo01.idmarca = cbo_marca.EditValue
            obj_ensayo01.idaplicacion = cbo_aplicacion.EditValue
            obj_ensayo01.idiluminaciontipo = cbo_iluminaciontipo.EditValue
            obj_ensayo01.croquis = pic_croquis.Image
            obj_ensayo01.croquisnotas = txt_croquisnotas.Text
            obj_ensayo01.notas = txt_notas.Text
            obj_ensayo01.informeestado = opt_informeestado.SelectedIndex
            obj_ensayo01.evaluadorfecha = dtp_fechaEvaluador.DateTime
            obj_ensayo01.inspectorfecha = dtp_fechaInspector.DateTime
            obj_ensayo01.idinspector = cbo_inspector.EditValue
            obj_ensayo01.idevaluador = cbo_evaluador.EditValue
            obj_ensayo01.idusuariorealizado = cbo_realizado.EditValue
            obj_ensayo01.idusuarioingresado = cbo_ingresado.EditValue

            If txt_ID.Text = "" Then
                obj_ensayo01.Nuevo(True)
                If frm_listado.Visible Then
                    ulg_row = CType(frm_listado, xtf_LISTADOensayo01_).AgregarItem(obj_ensayo01)
                End If
                Modificar(obj_ensayo01, frm_listado, ulg_row)
            Else
                obj_ensayo01.Modificar()
                If frm_listado.Visible Then
                    CType(frm_listado, xtf_LISTADOensayo01_).ModificarItem(obj_ensayo01, ulg_row)
                End If
                Modificar(obj_ensayo01, frm_listado, ulg_row)
            End If
            flg_Modificado = False : btn_Guardar.Enabled = False : bbi_guardar.Enabled = False
        End If
    End Sub

    Private Sub btn_Registro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Registro.Click
        If Not IsNothing(obj_ensayo01.registro) Then
            Dim ABMRegistro As New xtf_ABMRegistro(obj_ensayo01.registro)
            If ABMRegistro.ShowDialog() = Windows.Forms.DialogResult.OK Then
                flg_Modificado = True
            End If
        End If
    End Sub


    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        If flg_Modificado Then
            bol_comprobarCerrado = False
            Select Case ErrManagerShow("000001", Me)
                Case Windows.Forms.DialogResult.Yes
                    If ComprobarDatos() Then
                        btn_Guardar_Click(Nothing, Nothing)
                    Else
                        Exit Sub
                    End If
                Case Windows.Forms.DialogResult.Cancel : bol_comprobarCerrado = True
                    Exit Sub
            End Select
        End If
        Me.Dispose()
    End Sub

    Private Sub cbo_centrocostoorden_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_centrocostoorden.EditValueChanged
        Cargarequipo_()
        Dim obra As New cls_centrocostoorden_
        If obra.Buscar(cbo_centrocostoorden.EditValue) Then
            cbo_cliente.EditValue = obra.idcliente
        Else
            cbo_cliente.EditValue = Nothing
        End If

    End Sub

    Private Function generarReporte() As xtr_REPORTEensayo01
        Dim report As New xtr_REPORTEensayo01
        report.lbl_numero.Text = "Informe: " & txt_informe.Text
        report.lbl_fecha.Text = "Fecha: " & Format(dtp_fecha.DateTime, "dd/MM/yyyy")
        report.lbl_cliente.Text = cbo_cliente.Text
        report.lbl_centrocostoorden.Text = cbo_centrocostoorden.Text
        report.lbl_equipo.Text = cbo_equipo.Text
        report.lbl_componenteensayar.Text = cbo_componenteensayar.Text
        report.lbl_identificacion.Text = txt_identificacion.Text
        report.lbl_procedimiento.Text = txt_procedimiento.Text
        report.lbl_norma.Text = cbo_norma.Text
        report.lbl_criterio.Text = cbo_criterio.Text
        report.lbl_condicionsuperficial.Text = cbo_condicionsuperficial.Text
        report.lbl_limpieza.Text = cbo_limpieza.Text
        report.lbl_magnetizaciontecnica.Text = cbo_magnetizaciontecnica.Text
        report.lbl_magnetizacioncorriente.Text = cbo_magnetizacioncorriente.Text
        report.lbl_magnetizacionequipo.Text = cbo_magnetizacionequipo.Text
        report.lbl_particulatipo.Text = cbo_particulatipo.Text
        report.lbl_color.Text = cbo_color.Text
        report.lbl_marca.Text = cbo_marca.Text
        report.lbl_aplicacion.Text = cbo_aplicacion.Text
        report.lbl_tipoiluminacion.Text = cbo_iluminaciontipo.Text
        report.pic_croquis.Image = pic_croquis.Image
        report.lbl_croquisnotas.Text = txt_croquisnotas.Text
        report.lbl_notas.Text = txt_notas.Text

        report.lbl_fechainspector.Text = "Fecha: " & Format(dtp_fechaInspector.DateTime, "dd/MM/yyyy")
        report.lbl_fechaevaluador.Text = "Fecha: " & Format(dtp_fechaEvaluador.DateTime, "dd/MM/yyyy")
        report.lbl_inspector.Text = cbo_inspector.Text
        report.lbl_evaluador.Text = cbo_evaluador.Text

        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001062001") Then
            report.lbl_nombreinforme.Text = ensayosubtipo.nombreinforme
        End If

        If System.IO.File.Exists(config_empresa.logochico) Then
            Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
            report.pic_empresaLogo.Image = logoempresa
        End If

        Select Case opt_informeestado.SelectedIndex
            Case 0
                report.shp_aceptado.FillColor = Color.Black
            Case 1
                report.shp_observado.FillColor = Color.Black
            Case 2
                report.shp_rechazado.FillColor = Color.Black
        End Select
        Return report
    End Function

    Public Overrides Sub bbi_imprimir_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        generarReporte.ShowPreview()
    End Sub

    Private Sub bbi_pdf_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_pdf.ItemClick
        Dim dialog As New SaveFileDialog
        dialog.Filter = "Documento PDF(*.pdf)|*.pdf"
        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001062001") Then
            dialog.FileName = ensayosubtipo.nombreinforme
        End If
        If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            generarReporte.ExportToPdf(dialog.FileName)
        End If
    End Sub

    Private Sub opt_obra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_obra.SelectedIndexChanged
        Cargarcentrocostoorden_()
    End Sub

    
End Class